program define labnoeq 
*! NJC 1.0.1 10 July 2001 
	version 7 
	syntax varlist

	foreach var of local varlist { 
		local label : variable label `var'
		local pos = index(`"`label'"',"==") 
		if `pos' { 
			local label = substr(`"`label'"',`pos' + 2,.)
			label variable `var' `"`label'"' 
		} 	
	}
end 	
